home *** CD-ROM | disk | FTP | other *** search
- ' This simple macro allows you to access some basic functions
- ' from within paper space mode
- '
- ' Sys(801) indicates if we're in Paperspace mode
- if (not sys(801)) then
- ' Delete all paperspace layouts.
- Sys(802) = 0
- ' Enter paperspace mode and load a template
- >Paperspacemode
- {
- <Filename "*\pstemplate\fr1.tps"
- }
- ' Print with current settings
- >PrintNow
- {
- }
- ' Delete previous layout
- Sys(802) = 0
- ' Load new Template from within paperspace mode
- >LoadPSTemplate
- {
- <Filename "*\pstemplate\abcdportrait.tps"
- }
- ' Exiting Paperspace mode again.
- >PaperspaceMode
- {
- }
- ' Delete all templates again
- Sys(802) = 0
- else
- Message "Already in PaperSpace Mode"
- end if
- End
-